﻿Public Class FoliosReimpresion
    Implements IDisposable
    Dim szSQL As String
    Public _Rut As Integer
    Public _folio As String

    Public Sub Get_Folios(ByVal rp As NetResponse.MsSqlServer)
        Dim exec As New DotNetDAL.SqlServerTransaccion()

        rp.StoredProcedure = "sp_Get_VentaSeguro_Rut"
        rp.AddParametro(_Rut)

        exec.Executedataset(rp)
        exec.Commit()

        exec.Dispose()

    End Sub
    Public Sub Get_Ruta(ByVal rp As NetResponse.MsSqlServer)
        Dim exec As New DotNetDAL.SqlServerTransaccion()
        rp.StoredProcedure = "SP_GetUrlPDF"
        rp.AddParametro(_folio)

        exec.Executedataset(rp)
        exec.Commit()

        exec.Dispose()

    End Sub
     
#Region " IDisposable Support "

    Private disposedValue As Boolean = False        ' To detect redundant calls


    Protected Overridable Sub Dispose(ByVal disposing As Boolean)
        If Not Me.disposedValue Then
            If disposing Then
                ' TODO: free unmanaged resources when explicitly called
            End If

            ' TODO: free shared unmanaged resources
        End If
        Me.disposedValue = True
    End Sub

    ' This code added by Visual Basic to correctly implement the disposable pattern.
    Public Sub Dispose() Implements IDisposable.Dispose
        ' Do not change this code.  Put cleanup code in Dispose(ByVal disposing As Boolean) above.
        Dispose(True)
        GC.SuppressFinalize(Me)
    End Sub
#End Region
End Class
